home *** CD-ROM | disk | FTP | other *** search
/ Network Supervisor's Toolkit / Network Supervisor's Toolkit.iso / btrieve / btp15 / clone.pas < prev    next >
Pascal/Delphi Source File  |  1996-07-10  |  631b  |  27 lines
  1. PROGRAM Clone;                { (C) 1991 John C. Leon   last updated 11/4/91 }
  2.  
  3. {$IFDEF production} {$D-,R-,L-,S-} {$ENDIF}
  4.  
  5. USES
  6.    BTP;
  7.  
  8. VAR
  9.    OrgName, CopyName : string[79];
  10.  
  11. BEGIN
  12.    if paramcount < 2 then
  13.       begin
  14.       writeln('USAGE: CLONE existing_file_name new_file_name');
  15.       halt;
  16.       end
  17.       else
  18.       begin
  19.       OrgName := paramstr(1); CopyName := paramstr(2);
  20.       end;
  21.    BStatus := CloneFile(OrgName, CopyName);
  22.    if BStatus = 0 then
  23.       writeln(CopyName, ' created successfully.')
  24.       else
  25.       writeln('Error creating ', CopyName, '.  Status = ', BStatus, '.');
  26. END.
  27.